00100	TITLE CRELSP
00200	EXTERN INUM,MAKNUM
00300	
00400		DEFINE DATUM(NAM,WRD){
00500		INTERN NAM↔NAM:↔PUSHJ 14,INUM
00600		ADD 1,BASE
00700		MOVE 1,WRD(1)↔POPJ 14,}
00800	
00900		DEFINE LEFT(NAM,WRD){
01000		INTERN NAM↔NAM:↔PUSHJ 14,INUM
01100		ADD 1,BASE
01200		HLRZ 1,WRD(1)↔JRST MAKNUM}
01300	
01400		DEFINE RIGHT(NAM,WRD){
01500		INTERN NAM↔NAM:↔PUSHJ 14,INUM
01600		ADD 1,BASE
01700		HRRZ 1,WRD(1)↔JRST MAKNUM}
01800	
01900		LEFT(CW,0)↔RIGHT(CCW,0)
02000		LEFT(DAD,1)↔RIGHT(SON,1)
02100		LEFT(TYPE,2)↔RIGHT(RELOC,2)
02200		LEFT(ROW,3)↔RIGHT(COL,3)
02300		LEFT(ENDO,4)↔RIGHT(EXO,4)
02400		LEFT(ENDO,4)↔RIGHT(EXO,4)